﻿Imports System.Data
Imports System.Data.SqlClient
Imports BEGestionProyecto
Imports DLGestionProyecto

Public Class BLGPGastoRegistro
#Region "CONSULTAR"
    '*********************************************************
    'Funcion que Lista los Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLListarGastoRegistroxFechas(ByVal piGasPersonalProyectoID As Integer, ByVal pfGasFechRegGastoI As Date, ByVal pfGasFechRegGastoF As Date) As DataTable
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPGastoRegistro
            lDt = lBL.fuDLListarGastoRegistroxFechas(piGasPersonalProyectoID, pfGasFechRegGastoI, pfGasFechRegGastoF)
            Return lDt
        Catch ex As Exception
            Return Nothing
            Throw New ArgumentException("Origen : fuBLListarGastoRegistroxFechas " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function

    '*********************************************************
    'Funcion que Lista los Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLBuscarGastoRegistrox(ByVal piPepPersonalID As Integer) As DataTable
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPGastoRegistro
            lDt = lBL.fuDLBuscarGastoRegistrox(piPepPersonalID)
            Return lDt
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLBuscarGastoRegistrox " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function



    Public Function fuBLListarActividadPendxPersonaGasto(ByVal psGascodPersona As String) As DataTable
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPGastoRegistro
            lDt = lBL.fuDLListarActividadPendxPersonaGasto(psGascodPersona)
            Return lDt
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLListarActividadPendxPersonaGasto " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function

    Public Function fuBLListarProyectoxPersona(ByVal piPapcodPersona As Integer) As DataTable
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPGastoRegistro
            lDt = lBL.fuDLListarProyectoxPersona(piPapcodPersona)
            Return lDt
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLListarProyectoxPersona " & vbCrLf & _
                             "Descripcion : " & ex.Message)
        End Try
    End Function


#End Region
#Region "ACTUALIZAR"
    '*********************************************************
    'Funcion que Agrega Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLInsertarGastoRegistro(ByVal pBE As BEGPGastoRegistro) As Boolean
        Try

            Dim lBL As New DLGestionProyecto.DLGPGastoRegistro
            If lBL.fuDLInsertarGastoRegistro(pBE) Then
                Return True
            End If
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLInsertarGastoRegistro " & vbCrLf & _
                                        "Descripcion : " & ex.Message)

        End Try
    End Function
    '*********************************************************
    'Funcion que Agrega Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLActualizarGastoRegistro(ByVal pBE As BEGPGastoRegistro) As Boolean
        Try

            Dim lBL As New DLGestionProyecto.DLGPGastoRegistro
            If lBL.fuDLActualizarGastoRegistro(pBE) Then
                Return True
            End If
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLActualizarGastoRegistro " & vbCrLf & _
                                        "Descripcion : " & ex.Message)

        End Try
    End Function
    '*********************************************************
    'Funcion que Agrega Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLEliminarGastoRegistro(ByVal piGascodGasto As Integer, ByVal psGascodUserModifica As String) As Boolean
        Try

            Dim lBL As New DLGestionProyecto.DLGPGastoRegistro
            If lBL.fuDLEliminarGastoRegistro(piGascodGasto, psGascodUserModifica) Then
                Return True
            End If
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLEliminarGastoRegistro " & vbCrLf & _
                                        "Descripcion : " & ex.Message)

        End Try
    End Function

#End Region
End Class
